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MODULE INSGLOBAL ( ' List Global Sections 
IDENT = ‘V04-000', 
ADDRESSING_MODE(EXTERNAL = GENERAL) 


BEGIN 


' 
See eR RAE AAAAAAAEAAAAAAAAAAAEHTRAAAEAA AERA ERETEKAAARAAAAReKeAeKeee eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
'® ONLY eg ee WITH THE TERMS OF SUCH 
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* 
® 
w 
® 
® 
® 
® 
} R * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
~ TRANSFERRED. ® 
‘® * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 

* 

® 

® 

* 

*® 
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ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i gee eeeeeeeeeeeeeeeeneeeeeeeeeeeeeeeeeeeeeeeeeeeeeeekeeeeeeeneeeeeeeeeeeeeee 


'¢ 


'e¢ 
} FACILITY: Install 
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i ABSTRACT: 
This module controls Listing. 
99 {ENVIRONMENT : 
9040 VAX/VMS operating system. 
0048 AUTHOR: Bob Grosso, September 1981 
Goce ) Modified by: 
0046 1 | V03-007 MSH0035 Michael S. Harvey 20-Apr-1984 
0047 ! Correctly scan shared memory GSD cache so that all 
048 : shared memories are included in the /GLOBAL etsphay. 
049 ! Also, print out the global section summary for eac 
50 ! shared memory instead of only the last shared memory 
ee ' displayed. Also, print out only the relevant shared 
O3¢ : eonery global sections when a specific known file was 
005 : specified. Also, prevent global section summary message 
Boe from wrapping around the screen. 
0056 i v03-006 MSH0020 Michael S. Harvey 8-Mar-1984 | 
005 : Use correct length when extracting shared memory name 


mM 3 
vor-b00 1e=8ep-198e 12:35:37 INSTAL °SRESINSGLOBAL 682; 1 ee 


5 0038 } from the common data page. 

; 60 0960 1! V03-005 MSHO019 Michael S. Harvey 8-Mar-1984 
3; 6) 061 1! Access KFE from EXEC mode instead of USER mode to 
3 ? 8008 : } avoid an ACCVIO. | 
; © 0064 1! V03-004 MSH0O004 Michael S. Harve 26-Jan-1984 
: $2 bpee ! } Add support for lengthened global section names in GSDs. 
s 67 0089 1! v03-003 BLS0256 Benn Schreiber 27-Dec-1983 | 
3 $8 Boes : Cleanup. Allocate buffers once in main routine. 

3 0 0070 1! v03-002 RPGO002 Bob Grosso 21-Aug-1983 

: f} port } Restrict header printing in no sections to report. 

: 7 bo78 1! v03-001 RPGO001 Bob Grosso July 20, 1983 

: 74 0074 1! Print giobat sections by KFE if requested. 

yea: 0075 1! Extensive cleaning up of code. 

: 76 0076 1! 

fade, 0077 1 !-- 

; 0078 1 

ae 0079 1! 

3 80 0080 1 ! Include files 

; #8 0081 1! 

:- im pose 1 ‘ 

5 27 st F4 ! LIBRARY ‘'SYSSLIBRARY:LIB.L32'; ! VAX/VMS system definitions 

; 8 0085 1 

H 86 0086 1 *SRC$: INSPREFIX.REQ'; 

3 87 0228 1 REQUIRE 

b 88 0229 1 "LIBS: INSDEF .R32'; 

: 6289 0288 1 


nN 3 | 
INSGLOBAL 16-Sep-1984 01:56: AX-11 Bliss-32 V4.0-74 Page 3) 
y0eb08 Declarations 12-808 - 1 3b 95:38:48 YINSTAL SRE INSGLOBAL .B32;1 , (2) | 
33 RSBTTL "Declarations'; 
9 i Table of contents | 
94 ! 
95 | 
96 LINKAGE 
97 CALL_S_4 = CALL (STANDARD, REGISTER=4), ' for cath tne copy routines which execute in kernel mode 
98 0.4 = JSB (REGISTER=0, WESLSTERSS) : ! For mutex handling routines 
99 NOPRESERVE (1,2,3); 
LINKAGE 
JSB_4_5_G6_10 = JSB (REGISTER = 4, REGISTER = 5, REGISTER = 10) : 
GLOBAL (GSD_PTR = 6) NOPRESERVE (2,3); 


| 
1 
External routines 


EXTERNAL ROUTINE 
LIBS 


GET_VM, ' Allocate buffer in virtual memory 
LIBSFREE_vM ' Deallocate buffer in virtual memory 
LIB$PUT OUTPUT, i Print contents of formatted buffer 
MMGSGETAXTGSD : JSB_4_5_G6_10 ! get address of next used GSD in memory 
MMGSVALIDATEGSD : J$87475.G6.10, | Check if GSD is in use 
OCKR : JSB_0_4, ' Lock a Mutex for read access 
SCHSUNLOCK : JSB_0 4, ! Unlock a Mutex 
SYSSFAOL : ADDRESSING_MODE (GENERAL); ! Format ASCII output 


EXTERNAL 
EXESGL_GSDDELFL, 


EXESGL_GSDGRPFL, 


delete geneeng list 


' 

' 
EXESGL_GSDSYSFL, ; 
EXESGL_SHBLIST, ' SHB Listh 
EXESGL_GSDMTX, : 
INSSF AOOUTBUF ' address of output buffer 
INSSFAOBUFDESC : BBLOCK COSC$C_S_BLNI, 
INS$G_OUTRAB : BBLOCK, ' Output record access block 
MMGS$GC_SYSPHD, ! address of system process header 
SGNSGL_MAXGPGCT; ! Maximum global page count 


ead 

Global Section Descriptor Mutex 

FORWARD ROUTINE | 
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Be Be Be Se Se Se Se Be Be Be Se Se Se Se Ge BH FH Se Ge Se Se Se Ge Se Ge Se Ge FF Fe Se Ge Ge Se Se Se Se Se SH SF Se Se Se Sees Se Se Se Se eeae Fee Se Ge Se tsas 
mk et kk kk ak atk tk a at a at ts = ot ot I I SS SS Ss Ss Ss SS SY SS SS 
me ee ee ee et ee ed ed ed ed dd dd ed 8 8 = = = 


SRLS WWI NMI IAI RPI RINININININID 2 2 SS SS S OOOO OCOOCOCOCO 


OPY_LISTS ! Kernel mode routine dispatcher 
1 COPY_GSD Lists : CALL_S_4, : Fopy Global Section Descriptors to user buffer 
¢ LIST-GSDS, ' List Global Section Descriptors 
COPY_SHM_LISTS : CALL_S_4, : Fopy shared memory Lists to user buffer 
4 LIST-SHMS, ' List shared menory Lists 
5 DECOBE _FLAGS, ! Decode flags and buffer their ASCII symbols 
6 EXEC_MODE_NAME_CHK, ' KFE and GSD name comparison routine 
7 INS$FAOL, ' Format ASCII output Line 
8 INSSOUTPUT_FAOBUF , ! Print contents of formatted buffer 
, INSS$F AO_AND_OUT; ! Format and output ascii Line 
1 OWN b 
§ KFE, ' KFE address of shared file for which 
4 ! global sections are to be Listed E | 
44 INSSA_BUFFER : VECTOR (2,LONG], ' User buffer for copying GSD's to while in kernel mode 
345 ! so the information can be formatted Later while in user mode 
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St st SS SS — — — — — Ls — YS SS oY Ss SY 


INS$L_BUFSIZ, 
MODEADDR : BYTE INI 


EXTERNAL LITERAL 
INS$C_FAOBUF LEN; 


FAO control strings to format 


(" Pagcnt/Refcnt=!UL/!UL') 
TOR (* Pagent/Basepfn=!UL/!XL"5 


{ U 
(' !/!_ System Global Sections!/ 
(' !/!_ Group Global Sections!/' 
(" !/!_ Delete Pending Global Se 


4 
-$ep-1984 01:56:1 AX-11 Bliss-32 V4.0-74 Page 4 
mets a es gee eh pc tk ee 9 023 
Last size tried for buffer. 
T(GSD$W_SIZE) + 2), 


Size of the output print buffer 


size for first attempt to buffer kfi list 
Number of entries in flags string array 
Four Lists; system, group, delete pending and multiported memory 


Check that buffer is writeable so we don't take an access violatio 


data 


. ca 
0B"), 


UL Global Section! 4s ed, 'UL/!UL Global Pages Used/Unused’ 
t 


; 
) 
ctions!/'); 


<-_ 


rit be ti 1 
v04-000 INSS$SGLOBAL 1 


} RSETTL ‘INSSGLOBAL'; 
a5 rhe ROUTINE INSS$GLOBAL ( GLOBAL_KFE ) = 


4 
p-1984 12:35:37 — LANSTAL SRESINSGLOBAL 882; 1 inal | 
178 


444 
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FUNCTIONAL DESCRIPTION: 
Process the qualifier /GLOBAL by ayes, the aga een - delete 
° nte 


pending and multiport memory C= section lists. ernel mode 
to access the Lists, copyin hem to a user buffer, which can then be 
formatted for output. rint the output to sys$output. 

INPUT: 
none 


IMPLICITS INPUT: 


An output channel to ba 4 po has been opened and ins$g_outrab 
locates the record access block. 


OUTPUT: 
The formatted global section Lists to sys$output. 
ROUTINE VALUE: 


COOQCOCOCOCCOC COCO OCOCOCOCOOCOCOOOOOCOOooOoO 
S&F AWAWA AAA AANWANAAAN ANNA 


DOOCOCSC COO OOOO OVO OWBDWOOWODODOO NINN 
FUN OC OONAUNE WN OOODNAUE WN" OOONOUM 


o ono bob ete Te Je Je te) 


| 
7 
| 
8 ai 
2 


$06 040 Success or a service error. 
208 
209 040 TO UULPARAMETER: ! Check if parameter was included 
210 0407 
211 0408 LOC 
212 0409 ASTATUS: 
213 0410 
214 0411 IF NOT ULL PARAS TER (1) 
215 pele THEN ft = _KFE 
$i$ Belz ELSE KFE = 6: 
$18 0415 STATUS = COPY LISTS (COPY_GSD_LISTS); ! Copy the system, group and delete pending global section lists fro 
19 0416 i space to the user buffer. 
$9 Reie IF NOT .STATUS THEN RETURN .STATUS; 
2 BB 
Sz Beso ; Initialize the buffer and its descriptor 
$5 oi CHSFILL (ZC° ° o INSEE PAENGTHG EEF BROT ENED: 
26 04 INS$FAOBUFDESC COSC$Q_LENGTH INS$C FAOBUFLEN: 
sf Be 4 INSS$F AOBUF DES sf Det SAq POINTER) = .INSSFAOOUTBUF ; 
29 : 2 INS$G_CUTRAB CRABSL_RBF) = .INSSFAOOUTBUF ; 
0 427 
31 ? 3 at = bist 6505 (. INSSA_BUF FER); ' Format the info in the user buffer and print it out. 
238 430 2 THEN — 
34 431 MRETURN . STATUS; 


<_ 
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v02-000 INSSGLOBAL 122 8e7 1 38d 93:38:48 LINSTAL SRETINGGLOBAL B82; 1 : (3) 
| 

3 5 4 

: 4 § 

; 7 " 4 

; 8 435 : 

: 4 oe § } Print Shared Memory Sections 

: 241 438 STATUS = COPY_LISTS (COPY_SHM_LISTS); ! C th Ltiport bal ti i . 

é@ 0235 ar Nee starus _SHM_ opy the multiport memory global section Lists to user buffer | 

i 26 0440 | 

> 246 0441 RETURN .STATUS; 

s 245 peeg 

>; 24 44 ' 

: rt oes Initialize the buffer and its descriptor 

> 269 0446 CHSFILL (ZC° *,INSSC_FAOBUFLEN, .INS$FAOOUTBUF); 

s; @0 0447 INSSFAOBUFDESC COSC$Q_LENGTH] = INSSC_FAOBUFLEN; 

ae +) 0448 tt hg ar he DSCSA_POINTER] = .INSSFAOOUTBUF ; 

$ +3 ee INS$G_OUTRAB CRABSL_RBFJ = .INSSFAOOUTBUF; 

: 53 bee) STATUS = LIST_SHMS (.INSSA_BUFFER); ! Format the info in the user buffer and print it out. | 

: 256 045 § RETURN .STATUS; 

; 257 0454 1 END; ! routine INSS$GLOBAL 


.TITLE INSGLOBAL 
“IDENT \V04-000\ | 


-PSECT SPLITS,NOWRT,NOEXE,2 


20 20 20 20 00000 P.AAB: .ASCII \ \ : | 
00000004 00004 P.AAA: .LONG 4 PF 
00000000" 00008 -ADDRESS P.AAB ; 
42 4F i 3D OOO0C P.AAD: .ASCII \=!0B\ 3 
00000004 00010 P.AAC: .LONG 4 : 
00000000° 00014 »ADDRESS P.AAD 3 
30 74 6€ 63 66 65 52 2F 74 6€ 63 67 61 50 st 00018 P.AAF: .ASCII \ Pagcnt/Refcnt=!UL/!UL\ : 
7) 2 oe ie ae oe ae fH 3 
00000016 09080 P.AAE: .LONG 2 3 
bogpougs" B28 ADDRESS P.AAF 5 
6—€ 66 70 65 73 61 42 2F 74 6E 63 67 61 50 $° 0038 P.AAH: .ASCII \ Pagcnt/Basepfn=!UL/!XL\ : | 
4C 58 21 2F 4C 55 21 3D 00047 2 
Hd -BLKB 
0000007 0 29 P.AAG: .LONG 23 3 
0000000 00054 ADDRESS P.AAH : 
61 $¢ 6F 6C 47 20 4C 55 21 90 20 20 ¢9 sf 21 3028 P.AAJ: .ASCII \I/ 'UL Global Section!%S Used, ‘UL/!\ ; 
73 55 20 53 25 21 6E& 6F 69 74 63 6 0 6 O08 3 
1 2F 4¢€ 55 21 20 9 C 64 0076 3 
73 65 67 61 50 $f 61 $¢ 6F 6C 4 g f it ASCII \UL Global Pages Used/Unused\ 3 
64 65 5 6E 2F 64 65 5 0 0008F 3 
4g -BLKB 1 
90000083 O9C P.AAI: .LONG 67 3 
0900 * Q00A0 “ADDRESS P.AAJ ; 
oF 6C 47 30 60 65 74 73 79 53 SF 3] F 21 AS P.AAL: ASCII \ !/!_System Global Sections!/\ ; 
2F 21 3 6€ 6F 69 74 63 65 53 20 6C 61 Hed ms oa 3 3 


INSGLOBAL 
v04=600 


INSSGLOBAL 


62 6F 6C 47 70 75 6F 72 47 SF i ron 
eF 21 $8 6 6F 69 74 63 65 $3 Boot 3 

43 65 29 $8 65 74 65 6C 65 44 SF 21 2F ? 3 OOF 
65 65 5 0 6C 61 62 6F 6C 47 $9 67 6€ 69 64 ger 
eF 21 6—E 6F 69 74 319 

000025 0011 

000000" 0011 


00000 k 
00004 


0000C 
000A 00010 
00 00012 


OFFC 00000 
09 
F BO 
0 9E 


09 
:f 
D1 


04 AC OD 
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\ Mt “ree Global Sections!/\ 


. AAN 
\ !/! Delete Pending Global Sections!/\ 


- LONG 7 
«ADDRESS P.AAP 


-S$ep-1984 01:56: 
-$ 305-19 4 3:38:48 
P.AAK: .LONG a 
“ADDRESS, P 
P.AAN: .ASCII 
P.AAM: .LONG 
ADDRESS 
P.AAP: .ASCII 
-BLKB 
P.AAO: 
-PSECT 
KFE: sulin 
4 INSSA_ we 


INSSL if 
cssu_siiee: 
MODEADOR: 


YTE 


SOWNS ,NOEXE,2 
4 
® 
4 
10 
0 
P.AAA 
P.AAC 
P.AAE 
"AAG 
P. AAI 
P.AAK 
p-AAM 
P.AAO 
LIBSGET VM, LIBSFREE_V 
LIBS$P Toute PUT . MABSCETNXTGSD 
hncsvaL Ton ATEGSD 
SCHSLOCKR, SCHSUNLOCK 
SYSS$FAOL EXESGL NGSDDELFL 
EXESGL "G§p GRP 
EXESGL— ~GSDS¥ SE t 
EXESGL SHBLIST, EXESGL GSDMTX 
INSSPADOUTEUF INSSF AOBUF DESC 
INS$G OUTRAB MMGSGL_SYSPHD 
LENSE GPGCT 
INSSC  FAOBUFLEN 


SCODES ,NOWRT ,2 


INSSGLOBAL Save R2,R3.R4.R5,R6,R7,R8.R9,- 
tNs$e OUTRAB+40, R11 

#INSSC _F FAOBU! LEN R10 

INS$FAOOU RS 

INSSt $F AOBUF Bese, RB 
1$ 
4( 
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y0e~600 INS$GLOBAL 13-808 - 1 3be 93:38:48 YINSTAL SRE INSGLOBAL .832;1 
08 13 00 BEQL ~=s«d18 
A MOVL OBAL_KFE, KFE 
0000" CF 04 aC p ? ov 
9000" CF D4 F 1$: CLRL sc KFE 
OOv CF 9F 3 2$: PUSHAB COPY_GSD_LISTS 
0000v CF o1 F CALLS #1, COPY"LISTS 
7 g D C MOVL RO, STATOS 
0 57 £9 0003F BLBC STATUS, 3$ 
& 69 DO 0048 MOVL. INSSFAQOUTBUF, R6 
SA 20 6E 00 2¢ 0045 MOVCS #0, (SP), #32. R10, (R6) 
68 5, 80 0048 MOVW R10, INSS$FAOBUFDESC 
04 As 6 D 4 MOVL  R6, INSSFAOBUFDESC+4 
68 56 DO 0005 MOVL  R6, _INS$G_OUTRAB+40 
0000" CF DD 0005 PUSHL INSSA_BUFFER 
=e) AE a 
2E 29 4 0061 BLBC _—« STATUS, 9 
0000v CF OF 90064 PUSHAB COP “LISTS 
oe d bp sooee Mout? RO’ STATOR. 
iF 29 E9 09079 BLBC STATUS, 3$ 
56 69 DO 0007 MOVL INSSFAOUTBUE R6 
SA 20 bE 00 2¢ 900% MOVCS #0, (SP), #32. R10, (R6) 
68 gf B0 Goare MOVW R10, INSS$FAOBUFDESC 
04 AB 56 DO 0007F MOVL  R6, INSSFAOBUFDESC+4 
6B 56 DO 00083 OVL 6, INS$G_OUTRAB+ 
0000" CF DD 00086 PUSHL INS$A_BUFFER 
tad t 8) BB OO0BF cout? oko? Satos 
50 57 D0 00092 3$ MOVL STATUS, RO 
04 0009 


; Routine Size: 150 bytes, Routine Base: $CODE$S + 0000 


: 258 0455 1 
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vou-000 copy_lists 18-sep aah 9 £38: § INSTALCSRE TNSGLOBAL 6 852;1 sees (a) | 


; $9 re § ! ZSBTTL ‘copy lists’; 
3 6 4 8 1 ROUTINE COPY_LISTS ( COPY__ROUTINE ) = 
4 6 4 BEGIN 
’ 64 460 +++ i 
; 265 461 ! 
3 66 46 ' FUNCTIONAL DESCRIPTION: 
3 4 Beez Set up the arguement List for the call to change mode dispatcher. 
; 269 0465 2: INPUT: 
3 4 Bree : copy__routine = Name of routine which will execute in kernel mode. | 
: re 468 — | 
$ 7 0469 BIND ROUTINE 
3 74 0470 COPY_ROUTINE = .COPY__ROUTINE : call_s_4; 
s ers 0471 
: 276 047 CAL 
; 27? 047 CK ~ARGL ST : VECTOR C2,LONG), | 
: 78 0474 CMK_STATUS; ' status from S$CMKRNL call | 
: i094 0475 
$ 89 0476 : 
3 $e peer : copy the GSD data base to user buffer so that it need not be processed in kernal mode 
; 28 0479 CMK ARGLST (0) = 
: 284 0480 2 INSSL_BUFSIZ = Inséc_6 $12; ! BUFFER SIZE FOR FIRST COPY ATTEMPT 
; 285 0481 REPORT ( SEXPREG ( BRENT = INS$C_BUFSIZ, RETADR = INSSA _BUFFER)); 
: $o8 Bee Cex -ARGLST (C1) = .INSSA_BUFFER; 
: 288 0484 WHILE (CMK_STATUS = 
3 $80 0485 4 SCAKRNL (ROUTIN = COPY_ROUTINE, ARGLST = CMK_ARGLST) 
: 290 0486 ; ) GL SS$_ACCVIO DO ' If buffer too small 
; 0487 BEGIN ' double the size of the buffer and try agai 
; 0488 REPORT (SDELTVA ( INADR = INSSA_BUFFER ) ); ! return the buffer 
: 0489 INS$SL_BUFSIZ = 2 * ,INSS$SL_BUFSIZ; "ae uble the allocation size 
3 0490 gy wt G ( PAGCNT = . INSSL _BUFSIZ, RETADR = INSSA _BUFFER)); 
3 0491 CMK_A T C1) = .INSSA_BUFFER; 
; 296 rt END; 
: 0494 2 IF NOT .CMK STATUS THEN RETURN .CMK_ STATUS; | 
; 99 0495 RETURN TRUE? 
; 0496 END; ! routine copy_lists 
.EXTRN SYSSEXPREG, SYSSCMKRNL 
-EXTRN SYSSDELT 
003C 00000 COPY_LISTS: 
WORD Save R2,R3,R4,R5 ; 0458 
55 000000006 00 000 MOVAB LIBSSIGNAL. R5 ; | 
54 aie 444 0 000 MOVAB SYSSEXPREG, R4 3 
53 0000" CF i 001 MOV INSSA_BUFFER, R3 ; 
5E 4 01 SUBL a4, SP : 
1 1 PUSHL 1 3; 0479. 
08 a3 8 : 1A MOVL #8, INS$L_BUF SIZ : 480 | 
: C 3 CLRO §p) ; 0481 | 
5 02 PUSHL ; 


<a 


Hh | 
INSGLOBAL 16-Sep-1984 AX-11 Bliss-32 V4.0-7 Pa 10 1 
VOe-b00 copy_lists 14-Sep 138 93: 38: 4 INSTAL. SRCJINSGLOBAL. ‘ 2;1 - (4) a 
8 DD PUSHL #8 3 
4 4 FB é CALLS #4 arSZSSgyPres : | 
5 0 E 7 SLES STA : | 
65 81 PB Boose atk: LIBSSIGNA : | 
04 AE $3 8 F 2%: MOVL tes “BUFFER, tom _LARGLST+4 + 048 | 
04 Hi DD ; PUSH OP Y ROUTINE _ 
000000006 9 FB CALLS i SYSSCMKANL : 
D F MOVL R CK STATUS : 
C D1 0004 CMPL K_STATUS, #12 + 0486 
6 2 4 BNE tS*- : 
5b 00029 nn ae ‘Posese 
000000006 00 Fe i CALLS if ae F 
0 a ae ; 
08 =A Oe ch 005A 3$ MULL INS S$L_BUFSIZ + 0489 
ff bb b00G0 SUSHIL Hi) ; 
08 A3 DD 9006¢ PUSHL INSSL BUF SIZ : 
64 04 FB 0006 CALLS 71138 SEXPREG : 
‘ i a el : 
04 52 EB 0006D 4$: BLBS § CMK_STATUS, 5$ + 0494 
50 52 00 00070 MOVL § CMK7STATUS, RO : 
04 00073 RET : 
50 01 DO 00074 5s: MOVL , RO + 0495 
04 00077 RET : 0496 


3; Routine Size: 120 bytes, Routine Base: S$CODE$S + 0096 


; 301 0497 1 


Be Se Be Be Be Be Be Se Be Se SH Se Ge SH Se Be Se Se Se Se Se Se Se Fe Se Se Se ae Se SH Se Se SH Se Se ee Fe He Se Se Se Se Se Se Se Se Se Se See Se Se Se eee eae 


ES = - 4 


4 
INSGLOBAL ib-se -1984 01:56:1 AX-11 Bliss-32 V4.0-74 Page 11) 
Vv copy_gsd_lists 10905-1986 95:38:48 INSTAL.SRCJINSGLOBAL .B32;1 . (5). 
; te rs ! ZSBITL ‘copy_gsd_lists’; 
; 305 500 1 ROUTINE COPY_GSD_LISTS (BUF, PCB_ADR) : CALL_S_4 = 
3 4 28) 1 lee¢ 
; 30 8 1! 
; 308 505 1 ! FUNCTIONAL DESCRIPTION: 
3 +4 be : } Execute in Kernal mode to copy GSD data base to user buffer. 
; 311 0306 1! INPUT 
3 \¢ 0507 1! buf = address of user buffer to copy GSD data to | 
. an 0508 1! pcb_adr = address of process control block, courtesy of the change mode 
> 314 0509 1! dispatcher | 
3 315 0510 1! 
: 316 0511 1 ! ROUTINE VALUE: 
3 iT B26 , | ss$_accvio : user buffer was too small 
s 318 0515 1! success : Lists were copied to buffer 
s 319 0514 1 !<- 
3 Seo 0515 BEGIN 
3; Sel 0516 
5 $§ 0517 LABEL 
3 36 3218 LOCKED; ! Exit block with error status so mutex can be unlocked 
: 325 0520 2! 
3 $5 0381 ! Table of pointers to the GSD Lists 
3 6Ser 05 ¢ } 
: 328 05 OWN | 
; $3 0524 GSD_LISTS : VECTOR CINSSC_NUMGSDLSTS) INITIAL ( 
; 0 0525 EXESGL_GSDSYSFL, 
; 31 0526 EXESGL_GSDGRPFL, 
; = 0527 RXESSLSSODELFL, 
; 0528 3 
; $e 0529 
; 5 0530 LOCAL 
3 b2 1 GBLSEC_TAB : REF VECTOR C,LONG], : piesel section table 
; 7 5 ; PROBE _CEN : WORD, ! Tength for PROBEW 
; 8 05 STATUS; 
: 9 0534 
; 0 Be 5 Pp 
; 341 055 MMGSGL_SYSPHD : REF BBLOCK; ! System process header | 
; § B256 SCHSLOCKR (EXESGL_GSDMTX, .PCB_ADR); ' Lock the mutex 
; 345 540 LOCKED: 
3 $ 541 BEGIN ' block LOCKED: permits unlocking of mutex on error exit 
5 H 2¢§ STATUS = SS$_NORMAL; ! preset success status 
3 44 B2ee GBLSEC_TAB = .MMGSGL_SYSPHD + .MMGSGL_SYSPHD CPHDSL_PSTBASOFFJ; ! Base address of global section table | 
3 351 268 INCR I FROM 0 TO INSSC_NUMGSDLSTS-2 BY 1 DO ! For each global section List 
: 26 547 & BEGIN 
; 35 548 4 LOCAL 5 | 
3; 63546 549 4 GSD_ENTRY : REF BBLOCK, ! Global section descriptor entry 
; 3? 239 2 GSD_LSTHEAD; ! GSD Listhead 
; $3 236 ? GSD_LSTHEAD = .GSD_LISTS C.1]; 
3 35 0554 4 IF PROBEW ( MODEADDR, GSD$W_SIZE2, .BUF) ! room in the buffer for List marker? | 


lee 


ee ere ee ee ee 


copy_gsd_lists Ieogeoetg 2 93:38:59 = HINstAc*SReSinSctodac 682; row tf 
5 4 THEN | 
; § BUF = CHSFILL( -1, .GSOSW_SIZE2, .BUF) ! Mark beginning of new List 
8 LEAVE LOCKED WITH (STATUS = SS$_ACCVIO); 
60 GSD_ENTRY = ..GSD_LSTHEAD; ! first onery in list 
o WHICE "| eeaeedadl REQ .GSD_LSTHEAD DO ! follow List until back to Listhead 
ef <n CGSD$SB_TYPE] eql DYNSC_EXTGSD ! Is this an extended GSD? 
geste | 
Extended GSD | 
PROBE _LEN = .GSD_ENTRY CGSD$W_SIZE] + 4; ! size of GSD and lLongword for section table. 


PAA AAAS DTI. DDD AD DAA PADD AAA AAPA AP MPAA AAA AAA AAO MINE LLL ES 


oo 


CDOCOCOCOCOOCOCCOCOSCOOCOOOOOCOCOOCOOOO OOOO O OOOO D OOOO OOOOOoOO 
SoOOOoCOoSCoSo 
QESRAN—S SSS 


GPOOOUUIMIW 


GOOD 
——9oO 
—Ovock 


IF PROBEW ( MODEADDR, PROBE_LEN, .BUF) 


HEN 
BUF = CHSCOPY (.GSD_ENTRY CGSD$W_SIZEJ, .GSD_ENTRY, 0, ! copy the entry and fill tast longwo 
— -PROBE_LEN, .BUFY 


LEAVE LOCKED WITH (STATUS = SS$_ACCVIO); 
' extended GSD 

ELSE | 
Not an extended GSD | 
BEGIN | 


OCAL | 
GST_ENTRY_ADR, | 
GST~ INDEX; 


+ ECSC_LENGTH; ! Check if there is room for GSD, gl 


address, and global section table entry 
ENTRY, .BUF); 


EJ} 
EN 
SS : 
$I ¥ 
' 

: Get Global Section Table Index 

: WORD must be sign extended 


4 
GST_INDEX = .(GSD_ENTRY [GSD$W_GSTX])<0,16,1>; 


GST_ENTRY_ADR = GBLSEC_TAB C.GST_INDEX]; ' address of global section table entry 
-BUF = .GST_ENTRY_ADR; ' buffer address of GST entry 
BUF = .BUF # 4; ! skip over storage of GST entry address 
BUF = CHSMOVE (SECSC_LENGTH, .GST_ENTRY_ADR, .BUF); ! copy the GST entry 

! non extended GSD 


ND; . 
GSD_ENTRY = ..GSD_ENTRY; 
END; ! WHILE traversing List 
END; ! INCRementing through List heads 
' 


i Check if there is room in the buffer to pad the end with zeros 
: to mark end of Lists. 


! 
if PROBEW ( MODEADDR, GSD$W_SIZE2, .BUF) 


a 
K 4 | 
OBAL 16-Sep-1984 01:56: AX=11 Bliss-32 V4.0-74 P 13) i 
copy_gsd_lists 1e-8ep-19 4 93:38:48 INSTAL.SRCJINSGLOBAL .852;1 te (5) | V 
; 417 61 THEN | ; 
: 418 613 BUF = CHSFILL( 0, .GSD$W_SIZE2, .BUF) | 
: 420 0615 LEAVE LOCKED WITH (STATUS = SS$_ACCVIO); | 
i 4 é a END; | block LOCKED: | ; 
; 43h th SCHSUNLOCK (EXESGL_GSDMTX, .PCB_ADR); ! Unlock the mutex | : 
: 426 O63 RETURN . STATUS; ; 
: 427 0622 1 END; ' routine copy_gsd_lists : 
.PSECT SOWNS,NOEXE , 2 3 
00013 -BLKB 1 : 
000000006 000000006 000000006 00014 GsD_LISTS: ; 
ADDRESS EXESGL_GSDSYSFL, EXESGL_GSDGRPFL, - : : 
EXESGL_GSDDELFL : 3 
00000000 00020 .LONG 0 : ; 
.PSECT $CODE$,NOWRT,2 : 
OFFC 00000 COPY_GSD_LISTS: : 
“WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 ; 0500 : 
SE 04 ¢2 00002 SUBL2 : : ; 
58 54 D0 00005 MOVL 4. R11 : ; 
50 000000006 00 9E 00008 MOVAB EXESGL_GSDMTX, RO : 0538 : 
54 5B D0 0000F MOVL PCB_ADR, R4 : ; 
000000006 90 16 00012 JSB SCHSLOCKR : : 
58 01 D0 0001 MOVL #1, STATUS > 0542 ; 
50 000000006 00 DO 00018 MOVE — NNGSGL SYSPHD. RO 0544 ; 
6E 20 B04) 9E 00022 MOVAB a@32(ROJCROJ, GBLSEC_TAB : : 
57 D4 0002 CLRL > 0546 : 
SA 0000°CF47 DO 00029 18 OVL  GSD_LISTSCI], GSD_LSTHEAD : 0552 ; 
046 BC 0000' CF 0000" CF 0p 000 F PROBEW MODEADDR, GSb$wW_SIZE2, aBUF : 0554 ; 
FF OF 6E og 90 20 005A MOVCS #0, (SP), #-1, GSDSW_SIZE2, aBUF ; 0556 3 
04 AC BS po Sp0ae MOVL  R3, BUF : ; 
56 6A D0 0048 MOVL § (GSD_LSTHEAD), GSD_ENTRY : 0560 ; 
SA 26 D4 0048 28: CPL GSD_ENTRY, GSO_LSTREAD ; 0561 | 3 
28 OA AG 9 0056 CMPB JO(GSD_ENTRY), #40 0563 | : 
59 08 Ab 04 Ki 0056 ADDW3 #4, 8(GSD_ENTRY), PROBE LEN : 0569 ; 
04 BC 59 0000" (F Op 0058 PROBEU MODEADDR, "PROBE_LEN, @BOF ; 0570 : 
00 66 08 Ad 2C 506s MOVCS 8(GSD_ENTRY), (GSD_ENTRY), #0, PROBE_LEN, - ; 0573 3 
04 BC 006A aBuF : ; 
E 11 0006C BRB 4§ : ; 
59 08 A6 4 Ai 00 oF 3$: ADDW3 #36, 8(GSD_ENTRY), PROBE_LEN : : 
06 BC 59 0000" CF 0p 00 PROBEW MODEADDR, PROBE_LEN, aBUF : : 
47 13 OO07A BEQ 7$ : : 


oo 
wi 
coco 
No 


INSGLOBAL 1b- 50 AX-11 Bliss-32 V4.0-74 Page 14 
y0e-008 copy_gsd_lists 14-Sep =1382 9}: 38: My INSTAL. SRCJINSGLOBAL.B32;1 - 
04 BC 66 08 Ag 28 07 MOVC3 8(GSD_ENTRY), (GSD_ENTRY), @BUF : 0589 
04 AC 5 B90 MOVL R F : 
2 1G Ab 0 CVTWL e2iGsp ENTRY), GST_INDEX + 0595 
0 00 BE40 0D A MOVAL LSet TABLG CGST_INDEXJ, GST_ENTRY_ADR + 0597 
046 BC 50 D OB MOVL gst ent ADR, SBUF + 0598 
04 =A 4 5 0 E ADDL2 #4 be + 0599 
04 BC 6 9 09 MOVCS #32, (6st. _ENTRY_ADR), @BUF + 0601 
04 ac D0 09 4$ MOVL : 
56 66 OD A MOVL (GSD SENTRY), GSD_ENTRY + 0603 
Ag 11 O0A BRB + 0561 
80 57 02 £3 OO0A5 5$ AOBLEQ + 0546 
04 BC 0000' CF 0000' cf op Stee os PROBEW acéeAbDR® GSD$W_SIZE2, aBUF + 0611 
0000" CF 00 6E - 00 2c 0084 MOVcS #0, (SP), #0, GSD$W_SIZE2, aBUF + 0613 
04 Ac ef DO 000BD MOVL  R3, BUF F 
03 11 000C1 BRB 8s : 
58 0¢ D0 900¢5 7$ MOVL TUS : 061 
50 000000006 00 9E 000C6 8$ MOVAB ExEScL GSDATX, RO : 061 
54 5B DO 000CD MOVL PCB_ADR, R4 : 
000000006 00 16 00000 JSB SCHSUNLOCK : 
50 58 DO 00006 MOVL = STATUS, RO ; 
04 00009 RET : 


; Routine Size: 218 bytes, Routine Base: S$CODES + 010E 


; 428 0623 1 


ry ae 
v04-000 


Bo Pe Se Oe Se Se Se Be Be Se Se Be Be Se Be Se Se Se Fe Ge Fe Se Se Se Ge Se Se Fe Se Se Ge Ge Se Se Se Se Se Se Ge Ss Se oe SH Se Se SF Se See Se Se Se Se Se Se Seas 


ae 
“ 


5 el ek ee ek ee 
MMIII 
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4 
List_gsds 1ergee=} Re Pb:88:48 = FNS TAL aes iagct daa 6 


624 


Oooo 
AAO 


SSSSSSSSE3E. 
NOUEWN—OOONOuW 


PAGOSA 


0638 


1 ZSBITL ‘List_gsds'; 
1 ROUTINE LIST_GSDS (GSD_BUFFER) = 
BEGIN 


'ee4¢ 


—. Roy Hay 
for the Global section information in the user buffer and 
Mein it to sysS$output. 


INPUT: 
gsd_buffer = address of user buffer which contains GSD info. 


OUTPUT: 
Format and put to pyeteutout the system, group and delete pending 
global section Lists 


Table of control strings to print the List name 


TITLE_DESCS : VECTOR C3] INITIAL ¢ 
FAO_SYSTITLE, 
FAO-GR PTITLE 
FAO-DELTITLE); 


LOCAL 
BUFFER : per BBLOCK, 


GPT_ENTRIES Number of GPT entries used in a List 


i] 
GPT" UNUSED, ' Number of GPT entries unused in a List 
MATCHES ' boolean 
PRINT TITLE Re ! boolean to record if title should be printed 
SECTIONS, ! Count of global sections 
STATUS, 
TITLE; ' Index of which title to use 


BUFFER = .GSD_BUFFER; 


Zeros in the size field signal the end of the buffered data. 
Minus ones signal the start of a new List. 


UNTIL .BUFFER CGSD$W_SIZE) EQL 0 DO 
BEGIN 


AAA GEPIPINIPOPINIDIPDNINPDNIPINIPININDPINININPINININYDINPININIPINIPIPINIPOPIPINYPIPINPIPUNIPIPPIPUPIPPPUN 


BUFFER = .BUFFER + SBYTEOFFSET (GSD$W_SIZE) + 2; ! Skip over minus ones 
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INSGLOBAL 16-Sep-1984 01:56: AX-11 Bliss-32 V4.0-74 Page 16) 
y04-008 List_gsds 19-808-13be }:36:48 INSTAL SRCJINSGLOBAL .B 2;1 ° (6) 
: 487 0681 ' Setup to output appropriate title 
: age 683 i . estore 
; 489 6 PRINT_TITLE = TRUE; 
$ 24 pees TITLE = .TITLE + 1; ! Increment title to index next title descriptor 
; rf Deke MATCHES =' FALSE; 
: 494 0688 WHILE . (BUFFER CGSD$W_SIZEJ)<0,16,1> GTR 0 DO ! For each entry in this List 
; 495 0689 4 BEGIN 
; 496 0690 4 LOCAL 
; 49 0691 4 GSTE_ADR : REF BBLOCK, ! address in buffer of Global section table entry 
> 498 0692 4 PAGES; 
3 499 06935 4 | 
3 $00 0694 4 KFE : REF S$BBLOCK; 
; 501 0695 4 
: 308 0696 4 IF .KFE EQL 0 ! If printing all 
: 50 0697 4 THEN MATCHES = TRUE 
; 504 0698 4 ELSE 
; 505 0699 5 BEGIN 
; 506 0700 5 LOCAL 
; 507 0701 5 CME_ARGLIST : VECTOR (C3,LONG); 
; 508 0702 5 
; 509 0703 5 CME_ARGLIST (OJ = 2; 
: 510 0704 5 CME_ARGLIST C1] = .KFE; ! Pass KFE address 
; 311 9705 3 CMEARGLIST £2] = .BUFFER; i Pass GSD address | 
: 21 0707 5 MATCHES = SCMEXEC (ROUTIN=EXEC_MODE_NAME_CHK, ARGLST=CME_ARGLIST); 
> 514 0708 4 END; 
s S15 0709 4 
s 3 0710 4 IF .MATCHES ! If this is one to print 
s Si7 0711 4 THEN 
: 518 Orig 5 BEGIN 
; S19 0713 5 IF .PRINT_TITLE ' Title hasn't already been printed 
3 S20 0714 5 THEN 
3 $21 0715 6 BEGIN | 
3 See 0716 6 BIND | 
3 2$7 a4 e TITLE_DESC = TITLE_DESCS C.TITLE); 
5 | 
: See 0719 6 INS$SFAO_AND_OUT ( .TITLE_DESC); ! Load title into output buffer 
> 526 0720 6 PRINT_TITLE-= FALSE; 
: 527 0721 5 END; 
: 528 0728 | 
; 26) 0°82 2 SECTIONS = .SECTIONS + 1; ' Count the global sections 
3 235 0785 : DECODE_FLAGS (.BUFFER); ! Format the ASCII symbols for the flags | 
, Son 0727 5 INSSFAOL ( ' print either SYS or GRP 
3; 534 0728 6 ( IF (.BUFFER CGSO$W_FLAGS] AND SECSM_SYSGBL) NEQ 0 
s 535 0729 6 THEN FAO_SYSTEM 
; 536 0730 6 ELSE FAO~GROUP ) | 
>. Sar 0731 5 . »BUFFER CGSD$W_PCBGRP)); 
s 538 07 ¢ 5 
3; 539 07 4 END; 
: 309 o7 ; ? If ,BUFFER CGSD$B_TYPE] EQL DYNSC_EXTGSD ' Extended GSD? 
: } 
: a6 0736 2 BEGIN H Extended GSD é 
; 07 PAGES = .BUFFER CGSD$L_PAGES]; ! Pages in section 


ee -_ 5 


BEGIN 
GPT_UNUSED = .SGNSGL_MAXGPGCT - .GPT_ENTR ' Number of unused = max available - 


- IES; 
[NSSF AD_A® OUT FAO_SUMMARY, .SECTIONS, .GPT_ENTRIES, -GPT_UNUSED) ; 


ELSE 
INSSOUTPUT_FAOBUF (); 


RETURN TRUE; 
END; ! routine List _gsds 


5 
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v04- List_gsds 1e-Sep-19 4 93:38:48 INSTAL .SRCJINSGLOBAL .B52;1 ° (6) 
> 544 738 GPT_ENTRIES = .GPT_ENTRIES + ((.PAGES + 3) AND NOT 1); ! Count 2 zero GPT entries and round | 
; 545 7 ! even number of longwords. 
3 r oy IF .MATCHES ! If this is one to print 
: rk oe INSSFAO_AND_OUT( FAO_PAGPFN, .PAGES, .BUFFER CGSD$L_BASEPFN)); | 
3 329 re paren = .BUFFER CGSD$W_SIZE] + .BUFFER + 4; ! skip 4 bytes for the empty Section Table e 
; 33¢ bree 4 ELSE 
3 3 074 GIN ! non-extended 
; 554 0748 GSTE_ADR = .BUFFER CGSD$W_SIZE]_ + .BUFFER + 4; 
3 320 Bree GES = ,GSTE_ADR CSECS$L_PAGCNTI; 
3 320 750 GPT_ENTRIES =".GPT_ENTRIES + ((.PAGES + 3) AND NOT 1); ! Count 2 zero GPT entries and round 
: 557 0751 5 ! even number of longwords. 
3 538 oF 26 5 IF .MATCHES ! If this is one to print | 
3 3oP 0753 5 HEN 
; 560 0754 5 INS$FAO_AND a ft FAO_PAGCNT, .PAGES, .GSTE_ADR CSECS$L_REFCNT)); | 
: 561 0755 5 BUFFER = .BOFFER CGSD$W_SIZE] + .BUFFER + 4 + SECSC_LENGTA; 
; 20¢ 0756 4 END; 
; 56 0757 4 
; 564 0758 4 MATCHES = FALSE; ie | 
; 565 0759 3 END; ! While entries in this List 
> 566 0760 3 | 
; 567 0761 2 END; 
; 568 0 6¢ 2 
; 569 0765 2! 
; 570 0764 2! Print the summary Lines 
3 Sri 0765 2! 
; dle 0766 2 IF .KFE EQ. 0 
3 3fs 0767 ¢ THEN 
: 574 0768 
3 375 0769 3 
; 576 0770 ; 
3 ory 0771 
; 578 0 ¢ 
; 579 0 
; 580 0774 
; 581 0775 2 
3. S82 0776 1 


OOON NNN NNN SIOOO 


~-PSECT SOWNS,NOEXE,2 


00000000" 00000000' 00000000" 00024 TITLE_DESCS: 
ADDRESS FAO_SYSTITLE, FAO_GRPTITLE, FAO_DELTITLE ; 


.EXTRN SYSSCMEXEC 

.PSECT $CODE$,NOWRT,2 
O7FC 00000 LIST_GSDS: 

wo 


. Save R2,R3,R4,R5,R6,R7,RB,RI,R10 ; 0626, 

A 0000V CF 9E 0000 MOVAB — INSSFAO_AND_OUT, "R16 ; | 
O¢ C2 000 SUBL2 #12, SP | 

4 04 AC DO 0000A MOVL GSD BUFFER, BUFFER 3 0663 | 
58 D4 OO00E CLRL SECTIONS ; 0668 | 
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INSGLOBAL 16-Sep-1984 01: AX-11 Bliss -32 v4.0-7 
v04- “600 List_gsds 14-Sep 71982 93; 38: " INSTAL -SRCTINSGLOBAL . 4 2:1 
56 1 CO QOOCA ADDL2 GPT_ENTRIES 
0c 2} E9 000CD BLBC Plt HES; 12$ 
18 49 0D D PUSHL Me CGete ADR) 
52 DD 0000 PUSHL PAGES 
0000° ai 9F 0000 PUSHAB FAO_PAGCNT 
6A ; FB 000D CALLS 4#3,~ INSSE AD AND_OUT 
4 24 AGS 3F ne 138: MOVAB 36 (BUFFER) R3], BUFFER 
FFG) O€1 13$: BRW 3 
0000' CF Dd E4 14$: TSTL kre 
17 1 £8 BNEQ 15 
50 000000006 00 C EA SUBL3 GPT_ENTRIES, SGNSGL_MAXGPGCT, GPT_UNUSED 
DD Fe PUSHL GPT"UNUSED 
DD OOOF PUSHL GPT ENTRIES 
bb 0 F6 PUSHL SECTIONS 
0000' rv F H PUSHAB FAO_SUMMAR 
6A 4 FB OOOFC CALLS #4 ~TNSSFAO.. AND _OUT 
5 11 OOOFF BRB ies 
0000V gf 0 FB 00101 15$: CALLS #0, INSSOUTPUT_FAOBUF 
0 1 DO 00106 16$: MOVL #1. RO 
04 00109 RET 


; Routine Size: 266 bytes, Routine Base: S$CODES + O1E8 


; 583 0777 1 
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1 ZSBTTL ‘exec_mode_name_chk'; 
ROUTINE EXEC_MODE_NAME_CHK (KFE, BUFFER) = 
BEGIN 


'ee4 


FUNCTIONAL DESCRIPTION: 
Execute in Executive mode to compare the name syring in the 
supe} ied Ag to the global section name string in the 

supplie 


<_— 
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KFE = Address of KFE 
BUFFER = Address of GSD 


OUTPUT: 
Routine value 


Lab Ab Ab Ab Ab Ab Ab Ah A Adib ib dich eh Al 


o 
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i 
INPUT 
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i 
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601 TRUE if the KFE file name matches the global section name - the suffix 
ooe FALSE if otherwise 
60 
604 


> > Pe PP 
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KFE : REF SBBLOCK, 
BUFFER : REF BBLOCK; 


LOCAL 
MATCHES; 


MATCHES = FALSE; ' Assume that the names are different 
a alae CGSD$B_TYPE] NEQ DYNSC_EXTGSD 
i] 


| Compare the KFE's name string with the global section name less the installed suffix 


ur CHSCOMPARE ( .KFE CKFESB du ey KFE CKFEST FILNAM, 
. (BUFFER CGSD$T_GSDNAM)) <0,8,0> - 4, BUFFER CGSDST _GSDNAM] + 1) EQL 0 


N 
MATCHES = TRUE); 


ETURN .MATCHES; 
ND; ! routine exec_mode_name_chk 
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Save R2,R3,R4,R5 ; 0780 
55 D4 0000 CLRL MATCHES : 0805 
51 8 at 0 MOVL a Aa: , RI : 0807 
28 A Al 91 8 CMPB (RI), #40 : 
26 3 C BEQL 2 3 
4 Ac p 00 MOVL  KFE, RO > 0812 
$ AO 9A 0001 MOVZBL 54(RO), R3 : 
Al 9A 0001 MOVZBL 34(R1). R2 > 0813 
; 04 C2 OOO1A SUBL2. #4, Re ; | 
4 1 DO 0001D MOVL #1. RG : = 
| 


orn 


exec _mode_name_chk 
52 00 37—s AO 
54 
55 
50 


; Routine Size: 56 bytes, Routine Base: 


SCODES + O2F2 
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CMPCS 
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R3, 55(RO), #0, R2, 35(R1) 


1$ 
“i, 
R4 


Tl 
MATC 


yx 
INSTAL 
R4 


MATCHES 
HES, RO 


OSRESTNSGLOBAL -682; 1 


<-_ 


Fores Gi sie Grier 8 F 
WES copy_sna ists ERIS CUSHION 


3 9612 } ZSBTTL ‘copy _shm_Lists'; 

5 ? 9 oS : ROUTINE COPY_SHM_LISTS (BUF, PCB_ADR) : CALL_S_4 = 

> 631 1 i 

3; 6 § 08 4 1! FUNCTIONAL DESCRIPTION: 

; ? 8 5 : Execute in Kernal mode to copy SHM data base to user buffer. 

; 655 08 5 1 ! INPUT: | 
: 6 0828 1! buf = address of user buffer to copy GSD data to | 2 
; 637 0829 1! pcb_adr = address of process control block, courtesy of the change mode 

; O38 8 01! dispatcher 

; 639 ae 

: 640 0834 1! ROUTINE VALUE: 2! 
; 641 08 1! ss$_accvio : user buffer was too small | 4 
: ong 0834 1! success : lists were copied to buffer 

; 64 0835 1 !-- 

; 644 0836 2 BEGIN 

3; 645 0837 

: 646 0838 GLOBAL REGISTER 

3 647 0839 GSD_PTR = 6 : WEF BBLOCK; 

3 648 0840 

> 649 0841 LOCAL 

: oz one Com DATA_PAGE : REF BBLOCK, ! store commom data page address 0 
; 652 0844 PROBE_LEN : WORD, ! Length for PROBEW 

3; 65 0845 SHM_CTLBLK : REF BBLOCK, ! shared memory control block 

: 654 0846 STATUS; 

; 655 0847 

3; 656 0848 SHM_CTLBLK = EXESGL_SHBLIST; 

: 657 0849 

; 658 0850 ! 

3; 659 0851 ! Loop thru all the shared memories 

: 660 O828 ! 

; 661 085 WHILE ((SHM_CTLBLK = ..SHM_CTLBLK) NEQ 0) DO 

: 66 0854 BEGIN 

3s 6 0855 

3: 664 9338 ! 

; 665 085 ! Check if enough room in buffer and mark start of new list by 

r 666 +34 } filling size field with minus ones. 

3 oc8 pace IF PROBEW ( MODEADDR, GSD$W_SIZE2, .BUF) 

; 670 Baee BUF = CHSFILL (-1, .GSDS$W_SIZE2, .BUF) 

; 671 86 

3 O76 0864 RETURN SS$_ACCVIO; 

; 67 0865 

: 674 nee ! 

; 673 rt If this shared memory is not connected, then skip it 

3; 677 534 IF (SHBSM_CONNECT AND .SHM_CTLBLK CSHBSB_FLAGS]) NEQ 0 

; 678 870 THEN 

; 679 0871 4 BEGIN ! shared memory is connected 

; 680 1h) 4 

; 681 73 4 ! 

; ose are 4 ‘ Check if there is room in the buffer for 

; 68 0875 4 : longword for port number 


SA i i re 


H 5 
you-000 copy_shm_Lists 1228 Sep “ 198 93: 38: § INSTAL SRE TnecloBa 6 2;1 oe B v 


get info on each gsd 


PROBE LEN = .GSD_PTR (GSD$W_SIZE); | 
F NOT PROBEW ( MODEADDR, PROBE_LEN, .BUF) | 
EN RETURN SS$_ACCVIO; 


BUF = CHSMOVE (.PROBE_LEN, .GSD_PTR, .BUF); ! Copy the GSD 
! 
Get the address of the next used GSD in shared memory 


STATUS = MMGSGETNXTGSD ( .SHM_CTLBLK, .COM_DATA_PAGE, .NAME); 


MOMOMOPUNGNONS 
oOOoOoVdoVovsd 
ss 
DONA WO OONOUE wn 


oP sive 


Mark end of GSDs for this port 


if NOT PROBEW ( MODE ADDR, GSD$W_SIZE2, .BUF) 
THEN RETURN $S$_ACC 
FILL (0, Ct iy _SIZE2, .BUF); 


COCO COOOCOOOOOSOOOOoOSoOoOo 


OOOOooooovNovIns 
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oO Se 
M—O DONO WwNo 


BUF = CH 


; 16 4 : lLongword for number of global page $ 
; 685 77 4 ' Longword for maximum number of GSD's in this List 
: 8 4 ' 16 bytes for the ASCIC name of the shared memory 
; 79 4 ' and move them in. 
; 688 0 4 i 
; 689 1 4 PROBE LEN = 4+ 
; 690 ; 4 IF NOT PROBEW ( MODEADDR. “prope _LEN, .BUF) 
3 $3) ; ? ? THEN RETURN SS$_ACCVIO; 
; 69 o8 5 4 BUF = .SHM_CTLBLK CSHBS$B_PORT); 
; oN 8 ? BUF = .BUF F 4; 
3 eae OB 2 COM_DATA_PAGE = .SHM_CTLBLK CSHBSL_DATAPAGE); 
; 698 $890 4 BUF = COM. :% PAGE CSHDSL_GSPAGCNT); 
‘3; 699 0891 4 BUF = .BUF 
; 700 495) 4 
: 701 0895 4 BUF = 2COn DATA_PAGE CSHD$W_GSDMAX); 
; 70 0894 4 BUF = .BUF # 4; 
¢ 70 0895 4 
; 704 0896 4 NAME = .COM DATA_PAGE + SBYTEOFFSET (SHDST_NAME); 
; 705 897 4 BUF = CHSMOVE (18, «NAME, .BUF); 
; 706 898 4 
; 707 0899 4 ' 
; 708 0900 4 ! Get address of first gsd in this shared memory 
3 +49 : and check if it is in use. 
4 090 4 GSD PTR = .COM_DATA_PAGE CSHDSL_GSDPTR] + .COM_DATA_PAGE; 
3 8443 ? STATUS = MMGSVALIDATEGSD ( .SHMCTLBLK, .COM_DATA_PAGE, .NAME); 
3 0906 4 ' 
3 0907 4 ! For all the used GSDs 
3 0908 4 ' 
3 0909 4 WHILE (.GSD_PTR NEQ 0) DO 
; 0910 : BEGIN 
3 5 
3 5 
3 5 
3 5 
3 4 
3 4 
s 4 
: 4 
3 4 
s 4 
3 4 
s 4 


NNN NS 
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; i 
INSGLOBAL 16- $ep-1984 AX=-11 Bliss-32 V4.0-74 Page 24 I! 
yO2-000 copy_shm_lists ~3e87 1 Re 93: 38: § INSTAL. SRCJINSGLOBAL .B32;1 . ayy v\ 
: 761 933 END; ' IF connected : 
3 te , ¢ END; ! While there are more Shared Memory Control Blocks ; 
> 2hb 9 ' : 
3 oe? M4 ; Fill size field with zeros to mark the end of the buffer ; 
; reo 9 if NOT PROBEW ( MODE ADDR, GSD$W_SIZE2, .BUF) : 
> 748 940 2 THEN RETURN SS$_ACCVIO ; 
: 8? 341 BUF = CHSFILL (On ae ct SIZE2, .BUF); : 
: 751 094 RETURN SS$_NORMAL; ; 
3; 32 0944 1 END ! Foutine copy_shm_Lists ; 
OFFC 00000 COPY_SHM_LISTS: | : 
“WORD Save R2,R3,R4,R5,R6, R’ (88, R9,R10,R11 : 0821. ; 
57 000000006 ? 902 MOVAB EXESGL_SHBLIST, SHM : 0848, : 
57 0009 1$: MOVE SHA CTLBLK): Suc CTLBLK > 0853) ; 
OOA Re 3 OO0E BRW $§ : ; 
046 BC 0000" CF 0000" CF p 0011 2%: PROBEW MODEADDR, GSD$W_SIZE2, aBuF ; 0860, : 
A 13 OOO1A BEQL 4$ ; : 
0000" CF FF OF 6E a 0 2 9001¢ MOVCS #0, (SP), #-1, GSD$W_SIZE2, aBuF >; 0862 | : 
06 Ac BF 0 $09 6 MOVL -R3, BUF : | : 
DB 0B A? €E9 0002A BLBC 11(SHM_CTLBLK), 1$ > 0869. F 
5 1C 80 0002€ MOVW #28, PROBE_LEN : 0881 | ; 
06 BC 59 0000' CF Op 90 1 PROBEW MO MODEADDR, PROBE_LEN, @BUF ; 0882 ; 
06 BC 15 A? SA OOO3A MOVZBL 1 (SHM CTLBLK), aBUF : 0885 : 
04 at 04 CO 0003F ADDL2 : 0886 
5 04 A7 DO 00043 MOVL 4CSHR CTLBLK), COM_ DATA. PAGE ; 0888 
06 ac 10 AB DO 00047 MOVL. _ 16(COM_DATA_PAGE) , ~@BUF : 0890 | 
04 AC 04 £0 004C ADDL2 #4, BU : 0891 
04 BC 18 «AB 3 9050 MOVZWL ee tcOM DATA_PAGE), @BUF + 0893 
04 AC 04 CO 0005 ADDL2 #4 BUF > 0894 
SA 20 A 3 0099 MOVAB $3tR NAME : 0896 
046 BC 6A 10 28 0005p MOVC3 #16, (NAME), @BUF : 0897 
06 AC 53 DO 00062 MOVL F 
56 58 06 A ci 0066 ADDL3 4 (COM DATA. PAGE), COM_DATA_PAGE, GSD_PTR  ; 0903 
54 57 7D 9068 MOVO SHM CTLBLK; R4 : 0904 
000000006 00 16 O006E JSB RMGSVALIDATEGSD ; | 
58 0 dO 00074 38: MOVL STATU : 
6 D5 00077 TSTL ae PTR > 0909 
21 «1 79 BEQL F 
59 08 AG 78 MOVW (GSD_PTR), PROBE_LEN > 0915 
046 BC 59 0000' f 7F - PROBEW MODEADDR, PROBE_LEN, a@BUF : 0916 
06 BC 6 9 2 BS MOVC3 PROBE LEN, (GSD_PTR), @BUF ; 0919 | 
04 AC 3 b 8 MOVL RS : | 
D 1 mova CTLBLK, R4 > 0924 
000000006 09 16 34 JB AACSGETHKTESD ; | 
06 BC 0000' CF 0000" CF OD 0009C 58: PROBEW MODEADDR, GSD$W_SIZE2, aBUF ; 0929 | 
| 


VOe-600" = copy_shm_Lists ise Sep 19be 12:38:57 — EINSTALSSRESINSGLOBAL-092;1 lect 


; Routine Size: 215 bytes, Routine Base: S$CODE$S + 952A 


1B 13 QOOAS 6$ BEQL : : 

0000" CF 00 6E = 00 2c OA} MOVCS 3, (SP), #0, GSD$W_SIZE2, aBUF : 0931 ; 
06 ac 5 0 0008 MOVL 3, BUF ; 

FF 3 0B4 BRW : 0853 ; 

06 BC 0000° CF 0000" cr f ti 7$: PROBEW MODEADDR, GSD$W_SIZE2, aBUF : 0939 ; 

50 0C rf a9ee 8$: OVL #12, RO ; 0940 : 

0000" CF 00 6E ao. Hi C 90¢6 9$: MOVCS #0, (SP), #0, GSD$W_SIZE2, aBuF > 0941 : 
04 Ac DO OOOCF MOVL 3, BUF : : 

50 83 DO 00058 MOVL #1. R > 0943 : 

04 00006 RET 3 0944 : 


3 753 0945 1 


K 5 | 
vOo-600"" List s_shns 1ecSep-19be 42:88:57 LINSTALSSRESINSGLOBAL-B82;1 ree § | 


; f 5 034 } ZSBTTL ‘Lists_shms'; ; 
. F : 948 1 ROUTINE LIST_SHMS (SHM_BUFFER) = : 
; 758 949 1 lee ; 
: 759 950 1! ; 
: 760 951 1°! FUNCTIONAL DESCRIPTION: ; 
3 £9) 926 ! } Format and display to sys$output the shared memory GSD's | ‘ 
s 76 0954 1! INPUT: 7 
; ree 8322 : shm_buffer = buffer containing copies of shared memory GSD List ; 
i 766 0357 1 !--- | : 
: 76 228 BEGIN ; 
; 768 095 OWN : 
: 769 0960 SPACES : LONG INITIAL (CSTRING (' ")) ’ 
: 770 0961 DELPEND : LONG INITIAL (CSTRING (* DELPEND')S; : 
: 771 0306 : 
3 a 096 LOCAL ; 
“Re is 0964 BUFFER : REF BBLOCK, 3 
> 774 0965 GPT_ENTRIES, ; 
3; 775 0966 2 _MAX : 
: 776 0967 GSP UNUSED, ' Count of pages for global sections : 
; 777 0968 CHES, ! Boolean used in controlling display ; 
; 778 0969 PORT_NUMBER, ! Number of memory port : 
; 779 0970 PRINT_TITLE, ' Boolean used in controlling title : 
; 780 0971 CTIONS, ! Number of global sections : 
: 781 097 ATUS; : 
: 782 097 F 
; «783 0974 BIND ; 
> «784 0975 FAO_SHMTITLE = S$DESCRIPTOR (* !/!_Global Sections in Multiport Memory "!AC''!/"), : 
: 785 0976 AO” CRPORT = $DESCRIPTOR (* !AC”Creator Port=!UB'), 
; 0977 FAO_BASEPFN = $SDESCRIPTOR (°! -Basep{n/Pagent=iXL/!UL") 
s 787 0978 FAO_PROCCNT = $SDESCRIPTOR ta Port !UB PTE Refcnt=!UL"), 
3 0979 § FAO_ RY = $DESCRIPTOR (°!7 'UL Global Page!%S Used, ‘!UL Global Page!%S Unused"), 
: had 3464 FAO_SUMMARY2 = S$DESCRIPTOR (° 'UL Global Section'%S Used, ‘UL Global Section'%S Unused"); 
; 791 098 
; 79 098 BUFFER = .SHM_BUFFER; 
ROBE 
; oe? 3444 7 If there were no shared memories then return success 
: 19? 0988 2 iF . (BUFFER CGSDSU_S1ZE))<0,16,1> EOL O THEN RETURN TRUE; | 
3; 799 $9 0 : 
3 4 44 For each shared memory | 
: B02 099 UNTIL . (BUFFER CGSD$W_SIZE])<0,16,1> EQ. 0 DO ! <0,16,1> Ensures signed compare 
; 80 0994 BEGIN 
; 804 0995 LOCAL 
: a3 443 TBUF : BBLOCK (16); ! Title buffer | 
3 at 544 PRINT_TITLE = TRUE; ! Initialize title control indicator | 
; tts 1809 BUFFER = .BUFFER + S$BYTEOFFSET (GSD$W_SIZE) + 2; ' skip over -1's 
; B11 1002 SECTIONS = 0; | 

| 


voeb0e Lists_shms 18-50 977 8be FSi 88is | PINSTAObREsTAScY oak bz: Page gf 


; 1 } 3 GPT_ENTRIES = 0; 

: 814 1005 PORT_NUMBER = sBUFFER: 

: \5 i BUFFER = .BUFFER + 

; 13 1 § GSP_UNUSED = ,gBUFER: 

3 \8 : BUFFER = .BUFFER + 

3 0 19011 GSD_MAX = ..BUFFER; 

3 ig BUFFER = .BUFFER + 4; 

: 1014 CHSMOVE (16 BUFFER TBUF); ! Copy shared memory name 
: 8 4 1913 BUFFER = .BUFFER + 16; ” . 
: 826 1017 UNTIL .(BUFFER CGSD$W_SIZE])<0,16,1> EQL 0 DO ' Loop through all GSD's 
: B27 1018 4 BEGIN 

: 828 1019 4 LOCAL 

: ¢9 1020 4 BASPFNADR, 

; 830 1021 4 POR 

; 831 10 ; 4 PROC REF_CNTS, 

: 832 1023 4 PTECRTADR; 

; 83 1024 4 

; 834 1025 4 MAP 

; 835 1026 4 KFE : REF SBBLOCK; 

; 836 1037 4 

; 837 1028 4 IF .KFE EQL 0 

; 838 1089 4 THEN MATCHES = TRUE 

: 839 1030 4 ELS 

3 840 1031 5 BEGIN 

: 841 1038 5 \ 

s aeg 1033 5 ' See if the KFE and GSD have matching names, less suffix 

: 84 1034 5§ ! 

: 844 1035 5 LOCAL 

: 845 1036 3 CME_ARGLIST : VECTOR (3,LONG); 

; 846 1037 

3; 847 1038 5 CME_ARGLIST 9 = 2; 

: 848 1039 5 CME-~ARGLIST = .KFE; 

; 849 1049 3 CME~ARGLIST f2 = [BUFFER;: 

: 891 1042 3 MATCHES = SCMEXEC (ROUTIN=EXEC_MODE_NAME_CHK, ARGLST=CME_ARGLIST); 
: 3g 1044 4 END; 

: 854 1045 4 

; 855 1046 4 IF .MATCHES 

; 856 1047 4 THEN 

3; 857 1048 5 BEGIN 

; 858 1049 5 IF .PRINT_TITLE 

: 859 1050 5 THEN 

3 0 1051 6 BEGIN ! Print title if not already done 
; 861 105¢ 6 INS$FAO_AND OUT | (FAO_SHMTITLE, TBUF); 

: 862 105 $ PRINT_TITLE~= FALSE; ~ 

3; 86 1056 END; 

3 5 1096 SECTIONS = .SECTIONS + 1; 

; 105 DECODE FLAGS (.BUFFER); 

; 867 1058 INS$FAO_AND_OUT(FAO_CRPORT 

: 868 1059 6 (IF”.BUFFER CGSB$V_DELPEND) 
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EN 
ES 
SD$B_ CREATPORT]); 
FF 
TO 


R CGSD$L_BASPFN1); 
GSDSC_PFNBASMAX = 1 DO 


IND 
PFN BASE = .BASPFNADR, 
BASE_CNT = .BASPFNADR + 4; 


IF .BASE_CNT EQL 0 THEN EX1TLOOP: 
GPT ENTRIES = .GPT_ENTRIES + .BASE_C 


aera AND _OuT (FAD BASEPEN, * PEN “BASE, 


NABR =".BASPFNADR + 8; 


ores REF _CNTS = .BUFFER CGSD$B_PROCCNT); 
TECRTADR = BUFFER CGSD$L_PTECAT1); 


THEN rete ms aint - 1; 
if gPTE_CN CNT GTR 0 
scinoit nni toca -PORT, 


PTECNTADR = .PTECNTADR + 4; 
ad = .PORT + 1; 


END; 
BUFFER = .BUFFER + .BUFFER CGSO0$W_SIZE]; 
END; 


-KFE EQL 0 
THEN 


BEGIN 
; Print title if not already done 
IF -PRINT_TITLE 
INSSFAO_AND_OUT (FAO_SHMTITLE, TBUF); 
Print summary Lines 
UNUSED = .GSP_UNUSED =- GPT. ENTRIES; 


pee amuse AND OUT ( FAO_SUMMARY 
NSSFAQ_AN ND~OU 


fee) 3 
$ 
J 
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AX-11 Bliss-32 V4.0-7 Page $e 
INSTAL. SRCJINSGLOBAL. 3 231 (9) | 


! Address of first PFN base 
! For the maximum number of PFN bases allowed 


PFN base 
count of pages at this base 


global section pages used 
r count to next PFN base 


Processor reference counts 


at sent ! Address of first reference count 
WHILE. (PROC. REF_CNTS = .PROC_REF_CNTS = 1) GEQ 0 DO ! For all active ports 


et processor reference count 

s this the port for this processor ? 
Then subtract one for the GSD lock 

skip if none mapped to section 


-PTE_CNT); 


Go to address of next processor reference count 
Do for all active ports 


Until no more GSDs 


, 7GPT_ENTRIES, .GSP_UNUSED); 
T( FAOTSUMMARY2, .SECTIONS, (.GSD_MAX - .SECTIONS)); 


— 


N 5 
tees EHS AUSHGHYUMSELSGMENTHE 


-PSECT SOWNS,NOEXE,2 


9 1117 : 
111 BUFFER = .BUFFER + .GSD$W_SIZE2 ! skip over zeros F 

958 148 END; - . : 
929 1120 : 
930 1121 RETURN TRUE: : : 
931 1122 1 END; ! Routine List_shms : 
| : 

«PSECT $PLIT$,NOWRT,NOEXE,2 | : 

0120 P.AAQ: .BYTE 8 : : 

20 20 20 20 20 20 20 20 it 1 <ASCII \ \ : 3 

8 00129 P.AAR: .BYTE 8 : ; 

44 GE 45 50 4C 45 44 20 OO12A -ASCII \ DELPEND\ : ; 

53 20 6C 61 62 6F 6C 47 SF 21 2F 21 20 00132 P.AAT: .ASCII \ !/!_Global Sections in Multiport Memory\ ; : 

74 6C 75 4D 20 6€ 69 20 73 6E 6F 69 74 00141 : ; 

79 72 6F 6D 65 4D 20 74 rg gf 00150 : : 

2F 21 22 43 41 21 22 20 O015A ASCII \ “HACTI/\ : 3 

00162 -BLKB 2 | s 

00000030 00164 P.AAS: .LONG 48 F : 

00000000" 00168 .ADDRESS P.AAT : | ; 

20 72 6F 74 61 65 72 43 20 43 41 21 20 O016C P.AAV: ASCII \ AC Creator Port=!UB\ : : 

42 55 21 3D 74 72 00178 : ; 

00181 -BLKB 3 | : 

00000015 00184 P.AAU: .LONG 21 : : 

00000000" 00188 .ADDRESS P ; : 

67 61 50 2F 6€ 66 70 65 73 61 42 SF @\ 0018C P.AAX: ASCII \! “Baseptn/Pagent=!XL/!UL\ : : 

4C 55 21 2F 4C 58 21 3D 74 00198 : : 

00000018 001A4 P.AAW: .LONG 24 : : 

00000000" 001A8 SADDRESS P ; : 

54 50 20 42 55 21 20 74 72 6F SO SF 21 OO1AC P.AAZ: ASCII \! ~~ 'UB PTE Refcnt=!UL\ ; 3 

4C 55 21 3D 74 6E 63 66 65 52 001BB ; : 

001¢5 .BLKB 3 : 

00000019 001C8 P.AAY: .LONG 25 : 3 

00000000" 001C¢C .ADDRESS P.AAZ : : 

6F 6C 47 20 4C 55 21 20 20 20 20 2F 21 00100 P.ABB: ASCII \!/ 'UL Global Page!%S Used, !UL Glob\ ; : 

65 73 55 20 $3 25 21 65 67 $1 50 30 gc OoIDE : | : 

$¢ 6F 6C 47 20 4¢C 55 21 20 20 OO1EE : | : 

6— 55 20 53 25 21 65 67 61 50 20 6C 61 O001F8 -ASCII \al Page!%S Unused\ ; 3 

64 65 00207 : | : 

9209 -BLKB 3 : 

00000039 0020C P.ABA: .LONG 57 F 3 

009 0000' 00210 .ADDRESS P.ABB ; : 

61 $¢ 6F ¢ 47 $9 4C 55 21 0 20 0214 P.ABD: .ASCII \ 'UL Global Section'!%S Used, ‘UL Glo\ ; 3 

73 55 20 53 25 21 6E 6F 69 74 63 6 0223 ; ; 

6F 6C 47 29 4 23 1 20 20 0232 : : 

25 21 6€ 69 74 63 65 5 0 6C 61 g 023¢ -ASCII \bal Section!%S Unused\ : : 

64 65 73 75 6€ 00248 ; : 

0251 -BLKB 3 | : 

00000030 00254 P.ABC: LONG 461 : : 

00000000" 00258 .ADDRESS P.ABD : : 


00000000" 00034 DELPEND: ADDRESS PAAR 


: | 
vOe-000 List s_shns EScor1984 OU:S6:18  YANCHY eLisazsa yesee7g. a 


FAO_SHMTITLE= P.AAS 
FAO~CRPORT= AAU 
F AO-BASEPFN= P. AAW 
FAO-PROCCNT= P.AAY | 
FAO” SUMMARY 1= P.ABA 
FAO~ SUMMARY 2= P. ABC 


-PSECT S$CODES,NOWRT,2 


OFFC 00000 LIST_SHMS: | 
»WORD Save R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11 ; 0948. 
SE 24 (2 90002 SUBL2 : 
56 04 AC DO 0000 OVL  SHM BUFFER, BUFFER + 0983 
08 Ab 83 00009 TSTW  8(BOFFER) + 0988 
03 13 0000C BEQL $ : 
08 ag B5 OOO0E 1$ TSTW (BUFFER) ; 0993) 
9 12 00011 2$ BNEQ $ : 
0122 31 90015 BRW 21$ : 
56 OA CO 00016 38: ADDL2 #10, BUFFER + 1000 
57 bs 00019 CLRL SECTIONS + 1002 
58 01 7D 0001B MOV #1, PRINT_TITLE : 0998 
5B 86 DO OO01E MOVL §§ (BUFFER)+7 PORT_NUMBER + 1005 
SA 86 D0 tt MOVL (BUFFER)+, GSP_ONUSED 3; 1008 
04 AE 86 DO 00024 MOVL (BUFFER)+, GSD_MAX : 1011 
“« a 66 10 28 00028 MOVC3 #16, (BUFFER), ~TBUF : 1014 | 
56 10 CO 900¢0 ADDL2 #16. BUFFER + 1015 
08 Ad B5 00030 4s: TSTW  8(BUFFER) : 1017 
03 12 00033 BNEQ 5$ F 
00c1 31 00035 BRW 18$ ; 
50 0000' CF DO 00038 5$ MOVL KFE, RO : 1028 
05 12 0003D BNEQG 6$ ; 
6E 01 00 0003F MOVL #1, MATCHES : 1029 
1D 11 00042 BRB 7$ ; 
08 AE 08 DO 00044 6$ MOVL #2, CME_ARGLIST : 1038 
OC AE 50 D0 00048 MOVL RO, CME-ARGLIST+4 + 1039 
10 AE 56 DO 0004C MOVL —_ BUFFER, ~CME_ARGLIST+8 + 1040 
08 AE OF 90050 PUSHAB CME _ARGLIST + 1042 
FE9A CF 9F 0005 PUSHAB EXEC_MODE_NAME_CH ; 
000000006 00 92 FB 00057 CALLS a, SYSSCMEXEC : 
6E 50 DO 0005E MOVL RO. MATCHES ; 
0 6 8 0061 7$ BLBS MATCHES, 8$ + 1046 
008 1 0064 BRW 17 : 
OE E9 067 8$ BLBC _—s— PRINT_TITLE, 9$ > 1049 | 
14 AE SF OO06A PUSHAB TBUF : 1052 
0000" CF 9F BR PUSHAB FAO_SHMTITLE ; 
0000v CF 02 FB 00 1 CALLS #2, INS$FAO_AND_OUT ; 
D4 00 16 CLRL PRINT TITLE > 1053 
D6 00078 9S: INCL SECTIONS > 1056 
6 DD OO7A PUSHL BUFFER : 1057 
0000v CF 01 FB 0007C CALLS #1, DECODE_FLAGS ; 
7E 52 Ag 9A 1 MOV ZBL 82 (BUFFER) =(SP) > 1062 
06 66 02 €1 5 BBC #2, (BUFFER), 10$ : 1059 
0000' cf DD 9 PUSHL DELPEND > 1060 | 
4 11 : D BRB 1 F | 
0000' CF DD OOO8F 108 PUSHL SPACES ; 1061 | 
| 


Lists _shms INSTAL.SRCJINSGLOBAL .B52;1 
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0000' cr OF 09 $:  PUSHAB FA0_¢ RPORT : 1058) F 
0000v gf 3 FB 0009 TASS AO AND_OUT : ; 
2 54 Ag 3 09 MOVAB 7 tad) , BASPFNADR + 1064 ’ 
53 D A LRL + 1065 | ; 
50 % 4 rf 128: MOVE 4(BASPFNADR), RO : nase ; 
59 2 CO OO0A ADDL2 RO, GPT_ENTRIES : 1072 ; 
DD OAB PUSHL R + 107 ; 
62 DD O00AD PUSHL (BASPFNADR) : ; 
0000' i 9F OOOAF PUSHAB FAO_BASEPFN : : 
0000v cf 3 F OB CALLS #3, INSSEAQ AND_OUT : ; 
é 08 C 908 ADDL2 #8, BASPFNADR + 1074 ; 
£3 5 F BB AOBLEQ I 138 + 1065 : 
54 51 AS 9A OOOBF 13$:  § MOVZBL 81 (auf reR) PROC rer _CNTS + 1077 F 
52 74 Ag 9E 9003 MOVAB. 116(R6), PTECNT + 1078 : 
53 04 000C CLRL POR + 1079 ; 
54 D7 000C9 14$:  DECL §PROC_REF_CNTS + 1080 : 
22 19 000CB BLSS 3 3 
50 62 DO 000CD MOVL (PTECNTADR), PTE_CNT + 1085 ; 
58 53 D1 00000 CMPL PORT, PORT_NUMBER + 1086 ; 
02 12 00003 BNEQ 15$ : ; 
50 pv? 00005 DECL  PTE_CNT + 1087 
50 D5 00007 15$: TSTL  PTETCNT + 1088 
0p 15 00009 BLEG : 
50 0d 00008 PUSHL PTE_CNT + 1090 
53 DD 000DD PUSHL POR RT. ; 
0000" CF 9F OOODF PUSHAB FAO_PROCCNT : 
0000v CF 03 FB OO0E3 CALLS 4#3,~ INSSEAD AND_OUT F 
52 04 CO 000EB 16$: ADDL2 #4, PTECNTABR : 1092 
53 D6 OOOEB INCL PORT + 1093 
DA 11 OOOED B : 1080 
50 08 A6 3C OOOEF 17$ MOVZWL 8(BUFFER), RO + 1097 
56 30 £6 OO0F3 ADDL2 RO, BUFFER : 
FF37 31 OO00F6 BRW 4 + 1017 
0000' CF D5 OOOF9 188 TSTL  KFE + 1101 
3 12 OO00FD BNEG  20$ ; 
0c 58 €9 OOOFF BLBC _—s PRINT_TITLE, 19$ : 1107 
146 AE 9F 00102 PUSHAB TBUF : 1109 
0000" CF 9F 00105 PUSHAB FAO_SHMTITL F 
0000v CF 02 FB 00109 CALLS #2, INS$FAO_A : 
SA 59 ¢ 0010E 19$: SUBL2 GPT_ENTRIES, GSP. UNUSED : 1113 
7E 59 7D 00111 MOVOG = GPT~ “ENTRIES (SP) 7 1114) 
0000' CF 9F 00114 PUSHAB FAO. SUMM : 
0000v CF 93 Fe 0118 CALL “TNSSE AO AND _OUT : 
7E 04 AE C3 0011D SUBLS. SECTIONS. GSDAMAX. (SP) : 1115) 
57 DD 00122 PUSHL SECTIONS ; 
0000" CF 9F 00124 PUSHAB FAO_SUMMARY2 ; 
0000v CF 03 FB 01 8 CALLS #3, INS$FAQ_AND_OUT ; 
50 0000" CF 3C 0012D 20$:  MOVZ2WL GSDSW S1ZE2, RO™ : 1118 
56 50 £6 01 : ADDL2 RO. BOFFE : 
FED6 31 001 BRW : | 
50 01 DO 00138 21$: MOVL i. RO + 1121 
04 00138 RET ; N22 


3; Routine Size: 316 bytes, Routine Base: S$CODE$ + 0401 
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IWSGLORAL oe tant 1$-seoct9ee 1:56:14 


: 3 ‘ i é ! ZSBTTL ‘Decode_flags'; | : 
: 9 1 6 1 ROUTINE DECODE_FLAGS ( GSD ) = ; 
: 9 1 BEGIN : 
. 13s 3 : 
: 940 1130 2! FUNCTIONAL DESCRIPTION: ; 
> 941 1131 : Format the ASCII symbols in the output buffer | : 
; Se : ¢ } for the. gsd flags that are set. ‘ 
: 944 1134 2 i INPUT: : 
; ot? ' 5 3: gsd = address in buffer of GSD flags word : 
i 3 We 3 ie 
: 949 1139 GSD : REF BBLOCK; : 
ORR G ? 
: Ba6 : ¢g Indices to ctlflg_array : 
: 954 1144 2 LITERAL F 
: 955 1145 SEC_I_WRT = 0, : 
: 956 1146 SECTI-CRF = 2 : 
: 957 1147 SEC"1~D7RO = 4, : 
: 958 1148 SEC“I"PRM = 6, : 
: 959 1149 SEC"I-TMP = 7. : 
: 960 1150 SEC"I“SYS = 8. : 
: 961 1151 SEC"I“GRP = 9: : 
; 36¢ 1 38 2 ; 
; 96 115 OWN 5 
| ee ne ba 7 
> 966 1156 2 i Table of counted ASCII syeings one erring to be output : 
; 967 37 - | if flag is set, another if it is not set : 
: 969 1159 2 CTLFLAG_ARRAY : VECTOR C2, : INSSC CTLFLGSTRI INITIAL ( : 
: 970 1160 2 CSTRING ( » CSTRING ; 
: 971 1161 2 CSTRING (ERE) ESTRING. ¢ 3° ; 
: 97 1 6g 7 CSTRING ("DZRO'S, CSTRING C ), : 
: 97 116 CSTRING ('PRM'), CSTRING (‘TMP*), ; 
; 97% 64 CSTRING ("SYS"); CSTRING ('GRP') 3 
: 976 1166 PFN_CSTR : LONG INITIAL( CSTRING ("PFN ‘)); ; 
: Oe 1188 38 
: 979 1169 FAO_GBLNAM = SDESCRIPTOR (*!#AC(!XL) !AC IAC IAC IAC IAC*), ; 
; 980 20 \FAOLGBLNAM_L = SDESCRIPTOR (*!#AC!/ Cixt) AC fac 'AC HAC HAC"): 3 
: oe : % Place the correct ASCII symtols in the output buffer. | ; 
: 984 1174 2 INSSFAOL ( : 
; 985 03 (IF GSD CGSD$B_ TYPE] EQL DYNSC_EXTGSD 3 
; 389 1 6 4 CIF .(GSD Cespst -PENGSDNAM]) <0,8,0> LEQ 15 ; 
: 988 1178 4 then FAO”GBLNA ; 
: 989 1179 & aioe FAO™ CBLNAR. L) 3 
; 990 1180 3 else 3 
| 
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CONAUS WO Oo 


CIF (, ~ 5 Eés 


abe céseer ~GSDNAM)) soya: LEQ 15 
4 at see 


.GSD _{6sps8_ fyPE) reac’ BYNSC “Exregp 
UF. (GSD d Cospst_ PFNGSDNAM]) <0,8,0> LEQ 15 
(GSD CGSDST_PFNGSDNAM]) <0,8,0>) 
. (GSD then = GSDNAM]) <0,8,0> LEQ 15 
(GSD CGSD$T SSQNAAI) <0,8,0>) ), 


espe pesoee tyPED” EQL DYNSC_EXT 
GSB (GSD$T_ the 


GSD$T~ 


NT 
Sst IDEN FLAGS) AND 
C G_ARR 
»CTLFLAG gGhnay 
D$W_FLAG gS) A 
cree AG_A 


. tt LFLAG_A 


CIF ¢, =. b Eesd 


CIF (. aa | qe 


CIF ¢. .0sb Fesbsu. FLAGS. AND 


BEGIN 
IF .GSD D CGsDsB_ TYPE] EQL DYNSC_EXTGSD 
ELSE CTLFLAG. ARRAY CSEC_1_DZRO] 


ND 
-CTLFLAG ARRAY CSEC_I_DZRO : 642) 
su f LAgs] A 7 


tFLAG “ARRAY CS 
FLAGS) ane 
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INSTAL .SRCJINSGLOBAL. i oot 


4D 52 9 77 ASCII \PRM\ 
7A P.ABL: .BYTE 
50 4D 4 78 ASCII \TMP\ 
7E P.ABM: .BYTE 
53 59 7F ASCII \SYS\ 
§ P.ABN: .BYTE 
50 52 4 ASCII \GRP\ 
4 P.ABO: BYTE 4 
29 af 4 0 eASCII \PFN \ 
29 29 4C 58 21 28 4 4 2 1 P.ABQ: .ASCII \N\!MACCIXL) 'AC 'AC !AC SAC !AC\ 
43 41 21 20 43 41 21 20 4 1 A 
0 O18 ASB P.ABP: .LONG 
. ar ADDRESS P.ABQ 
20 ¢0 $9 $8 F 1 63 41 1 BO P.ABS: ASCII \!@MAC!/ C!'ML) !AC !AC !AC 
4c 58 21 28 20 20 2 20 0 O02BF 
21 20 43 41 21 20 43 41 21 20 00 cf 
43 41 21 20 43 41 02D. eASCII \AC !AC\ 
0 43 -BLKB 2 
44 it3 O2E0 P.ABR: .LONG 46 
00000000" 002E4 -ADDRESS P.ABS 


-PSECT SOWNS,NOEXE ,2 


00000090* 00000000" 00000000° 00000000 00038 CTLFLAG_ ant 


00000000 00000000' 00000000' 00000000' 9050 pine pA , P.ABK, P ine P.ABM, P.ABN 
00000000" 00068 PFN_CSTR: 
.ADDRESS P.ABO 
F AO_GBLNAM= P. ABP 
FAO”GBLNAM_L= P.ABR 
.PSECT $CODE$,NOWRT,2 
000C 00000 DECODE_FLAGS: 
<WORD Save R2,R3 
53 0000" CF 4 MOVAB CTLFLAG. *ARRAY+32, R3 
50 94 A p VL gsb 
52 0 A MOVZWL CRO} 
5 - TSTw OR 
04 BGEQ si} 
: pp PUSHL STLFLAG_ ARRAY +32 
BRB $ 
04 =A Dp PUSHL CTLFLAG_AR ARRAY +36 
05 52 OF E BBC aia 
F8 «AS ODD PUSHL CTLELAG. * ARRAY#26 
03 11 BRB 4$ 
FC OAS ODD PUSHL CTLFLAG_ ARRAY #28 
14 52 08 FI BBC r 
2 OA AO 91 cMPB.tOid tros: bio 
06 1 BNEQ §§ 
51 10 A p MOVL PFN_CSTR, R1 
04 BRB 6$ ~ 
51 FO «630 MOVL § CTLFLAG_ARRAY*16, R1 
51 DO PUSHL 1 


\ 
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; Routine Size: 
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es a tt ts a bt ts th a as i et tt tt 


Mrorororner 


et ttee eat at tat yet pd ee ny ee ree hy ee Ne | 
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1 
1 
1 
BEGIN 
; 
L 
E 
RET 
1 END; 


ZSBTTL ‘output routines '; 
GLOBAL ROUTINE INSSFAOL (FAO_STRING, PARAMETER_LIST) = 


+++ 


FUNCTIONAL DESCRIPTI 
Format an ASCII 
Update the buffe 
buffer. 


ON: 
string and stuff it into the output buffer. 
r pointers to reflect the new stuff in the 


INPUT: 
fao_string = Formatted Ascii Output control string for FAO 
parameter_list= List of stuff to have formatted into buffer. 


IMPLICIT INPUT: 
Output buffer has been allocated and ins$faobufdesc is the 
descriptor for it. 


ROUTINE VALUE 

Success, or error status from SYSSFAOL 
LOCA 

OUTLEN : WORD; 


MECUTE ( SYSSFAOL (. aoe STRING, OUTLEN INSSFA 
INSSFAOBUFDESC CDSCSW_LERGTH] =. INSSFAOBUFDESC 
ag alla «ol DSCSA_ ~POINTER? = .INSSFAOBUF DESC 


‘ ! global routine INSSFAOL 


Sc, sateta LIST)); ' Format the buffer 
wW LENGTH) - EN 


noc 
own 
ASO 
oem 


So 
o 


So 

- 

> 

o 
SOVOWPMNSOOTOOOO 
Foonnowo "so roms 


00 -ENTRY INSSFAOL, Save R2 
MOV INS$FAOBUF DESC, R2 


SUBL2 #4, SP 
PUSHAB PARAMETER LIST 


oO 


52 000000006 9? 
5E 


OUTLEN 
PUSHL FAO_STRING 
CALLS #4, SYS$F AOL 


8 TUS, 1 

SUBW2 QUTLEN, INSSF ADBUF DESC 

ADDL2 RO, INSSFAOBUFDESC+4 
#1. RO 


000000006 


04 


SOOoOOoooooooooooo 
SoOoOoOOoOOoooooOooooSo 
SOOoOoooooooooooo 


MSN MRA 


MNMMN]——]==00 


47 bytes, Routine Base: S$CODES + O5F5 


1254 


1 


UTL i decrement space left in bu. 
sa -POINTER] +  OUTLEN: i Point to unused space left 


Sete Se Se Ge Se Ge Ge Ge Se Se te Be Se 


Page si; 


cs 
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= 
Se 


3: 1067 1255 1 GLOBAL ROUTINE INSSOUTPUT_FAOBUF = ; 
4 1969 1 8 BEGIN 3 
s 1 1 'oee F 
; 1070 1258 ' : 
; 1071 1259 ' FUNCTIONAL DESCRIPTION: : 
: 19r6 1260 ! Print the contents of the output buffer to sys$output and re-initialize ; 
: ie, : o } the descriptor of the buffer, and zero the buffer. ; 
3; 1075 126 ' INPUT: 3 
: 1278 1264 ! none : 
: 107 1265 ! $ 
3 1078 126 1 IMPLICIT INPUT: : 
3; 107 126 ! Output buffer has been allocated and ins$faobufdesc is the : 
; 1080 1268 ! descriptor for it. : 
3 1081 1269 ' 3 
3 Ig 1270 ! QUTPUT: 3 
3 Oar : a Output the contents of ins$faooutbuf to sys$output | : 
s 1085 127 ' ROUTINE VALUE 3 
3; 1086 1274 : status from $PUT F 
3; 1087 1275 loco ; 
: 1088 127 | 3 
> 1089 127 LOCAL ‘ 
3 1990 ! 8 STATUS; ; 
: 16 1280 INS$G_OUTRAB CRABSW_RSZ2) = INSSC_FAOBUFLEN - .INSSFAOBUFDESC SDSC$W_LENGTH); ; 
: 109 1281 2 STATUS = SPUT (RAB = INSSG OUTRAB) | 
: 1094 1 Be INSSF AOBUF DESC CDSC$W_LENGTH = INS$SC_FAOBUFLEN; ; 
3; 1095 128 INSSFAOBUFDESC CDSCSA_POINTER] = . INSSF AOOUTBUF ; é 
; 1096 1284 CHSFILL (%C° °, INSSC-FAOBUFLEN, .INS$FAOOUTBUFS; ; 
: 1097 1285 RETURN .STATUS; : 
3; 1098 1286 1 END; ! Global Routine INSSOUTPUT_F AOBUF : 
-EXTRN SYS$PUT : 
OOFC 00000 .ENTRY INSSOUTPUT_FAOBUF, Save R2,R3,.R4,R5,.R6,.R7_ ; 1255 | : 
57 000000006 09 4 90002 HOVAB INSSFAOBUFDESC, R? : ; 
000000006 00 0000G 8F 67 A3 0000 SUBW INSSEADGUFDESE #INSSC_FAOBUFLEN, - 3: 1280 
000000006 00 9F $013 PUSHAB INS$G-OUTRAB 3 1281 
000000006 99 1 FB 00019 CALLS #1, SYS$PUT 3 
0 OD 5 VL RO, ate $ 
0000G 8F 8B MOVW #INSSC_FAOBUFLEN, INSSFAOBUFDESC ® 1g8 
29 000000006 8 DO 00 MOVL INSS$SF AOOUTBUF 3; 128 
04 p F L RO, INSSF ADBUFDESC+4 ; 
0000G_ 8F 20 6E $0 C ; MOVCS #0, (SP), #32, #INSSC_FAOBUFLEN, (RO) 3: 1284 
50 6 00 MOVL STATUS, RO > 1285 
Be O3E RET 3 1382 


; Routine Size: 63 bytes, Routine Base: S$ CODES + 0624 


kK 6 

16-Sep-1984 01:56: AX-11 Bliss-32 v4.0-74 2 9 
euteut routines 1ox08=1 382 93:38 | MSTA eae Tagcy oan 621 a9e 13) 
: J ROUTINE INSSFADAND_OUT(FAO_STRING, PARAMETER LIST) = 


25 
33 
> 


FUNCTIONAL DESCRIPTION: 
Format and output an ASCII etring and stuff it into the output buffer. 
vedere the buffer pointers to reflect the new stuff in the 
u . 


' 

' 

' 

' 

' 

' 

! INPUT: 

; fao_string = Formatted Ascii Output control string for FAO 
: parameter _List= List of stuff to have formatted into buffer. 
' 

! 

' 

' 

' 

' 

' 

' 


| 

| 

| 

| 

| 

IMPLICIT INPUT: | 
Output buffer has been allocated and ins$faobufdesc is the 

descriptor for it. 

| 

| 

} 

| 

| 


OUTPUT: 
none 


' ROUTINE VALUE 
é Success, or error status from SYSS$FAOL 


XECUTE (CALLG(.AP, INSSFAOL)); 
ETURN INSSOUTPUT.F AOBUF () 


a tw tn a 9 a i > = 2b 2 4) — 0 sn an = ts 
(tt a a a st ts sn > =) Ls a — 2 —) 9 Ls is 4 4 4 tt ls 


DARWIN AOSRVS AP WN OLD IE AR ODeD 


PRMYYPUNNN ss S533 3800 
ODONOVEWN—OOBNOUES WN ODDEN 
— 


0000 00000 INS$FAO_AND_OUT: 
WORD 


: Save nothing : 1987 

BC OAF 6¢ FA 00002 CALLG (AP), INS$FAOL > 1314 
04 0 €9 00006 BLBC STATUS, 1$ ; 

B4 OA 00 FB 00009 CALLS #0, INSSOUTPUT_FAOBUF : 1315 

04 00000 1$: RET : 1316 


Routine Size: 14 bytes, Routine Base: $CODE$ + 0663 


D 
UDOM ! INSGLOBAL 


-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 


’ 
| 
| 
| 


6 

INSGLOBAL 16-se -1984 01:56:1 AX-11 Bliss-32 V4.0 Page 40 
v02-000 output routines 12-8081 384 95:38:48 INSTAL. SRC INSGLOBAL. if 2:1 ° (13) | 

SOWNS 108 NOVEC, ot B »NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 744 NOVEC.NOWRT RD ;NOEXE.NOSHR, LCL, REL. CON,NOPIC,ALIGN(0) 
; SCODES 1649 NOVEC.NOWRT, RD; EXE.NOSHR, LCL, REL, CON,NOPIC.ALIGN(2) 
: Library Statistics 
3 euocssas Syebel§ scocence Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 59 0 1000 00:01.7 
$ BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$: INSGLOBAL/OBJ=O0BJ$: INSGLOBAL MSRC$: INSGLOBAL/UPDATE=(ENHS$: INSGLOBAL) 


; Size: asa Ay ae 852 data bytes 
; Elapsed Time: 01:45-1 


2 
; Lexenes/CPU-Rin: 16604 
3 7 pages 


; COMMAND QUALIFIERS | 
; comme Be tay ta | 
| 


ENT CORPORATION 
AND PROPRIETARY | 


AH-BT13A-SE 
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